home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / framework.lha / fw / comparable.e < prev    next >
Encoding:
Text File  |  1996-01-28  |  594 b   |  25 lines
  1.  
  2. -> This class is very usefull as many objects such as integers and
  3. -> strings are comparable. It will allow to get best benefits from
  4. -> sorted structured such as trees.
  5.  
  6. -> Copyright © Guichard Damien 01/04/1996
  7.  
  8. OPT MODULE
  9. OPT EXPORT
  10.  
  11. MODULE 'fw/storable'
  12.  
  13. OBJECT comparable OF storable
  14. ENDOBJECT
  15.  
  16. -> Is object less than other.
  17. PROC isLessThan(other:PTR TO comparable) OF comparable IS EMPTY
  18.  
  19. -> Is object egal to other.
  20. PROC isEqualTo(other:PTR TO comparable) OF comparable IS self=other
  21.  
  22. -> Is object greater than other.
  23. PROC isGreaterThan(other:PTR TO comparable) OF comparable IS EMPTY
  24.  
  25.